home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / pc_board / lfgtpwd.zip / FORGETPW.PPS < prev    next >
Text File  |  1993-05-18  |  3KB  |  79 lines
  1. string Answer,Phone,City,Password
  2. GETUSER
  3.  
  4. print   "@CLS@"
  5. println "@X5FIS   @X0A  Current User ID: @X0B@USER@"
  6. println "@X5FTHIS @X0A  City/State     : @X0B@CITY@"
  7. println "@X5FYOU? @X0A  Last Time On   : @X0B@LASTDATEON@ @X0Aat @X0B@LASTTIMEON@"
  8. println
  9. Answer = ""
  10. inputyn "Does the above information belong to you",Answer,0Eh
  11. if (Answer <> YesChar()) goto notyou
  12.  
  13. println "@CLS@@X0FIf you are a registered user on this system@X07 and simply forgot your password"
  14. println "then we can help you out, by changing your password for you, if you wil first"
  15. println "verify the following information for us:"
  16. println
  17. println "@X38┌─────────────────────────────────────────────────────────────────────────@X3B┐@X07"
  18. println "@X38│@X3E  a) Your voice @X3Fphone number@X3E                                             @X3B│@X07"
  19. println "@X38│@X3E  b) The @X3Fnew password@X3E you would like to use on this system               @X3B│@X07"
  20. println "@X38│                                                                         @X3B│@X07"
  21. println "@X38│@X31We need @XBFBOTH@X31 pieces of information in order to change your password!!    @X3B│@X07"
  22. println "@X38└@X3B─────────────────────────────────────────────────────────────────────────┘@X07"
  23. println
  24. Answer = ""
  25. adjtime 5
  26. Phone    = ""
  27. Password = ""
  28.  
  29. :askquestions
  30. println
  31. println
  32. inputtext "What is your voice phone number",Phone,0Eh,20
  33. println
  34. inputtext "What would you like your NEW PASSWORD to be",Password,0Eh,12
  35. println
  36.  
  37. println
  38. Answer = ""
  39. inputyn "Is all of the above information correct",Answer,0Eh
  40. println
  41. if (Answer <> YesChar()) goto askquestions
  42.  
  43. println "@CLS@@X03"
  44. println "Your answers will be placed into a COMMENT where the Sysop can read them"
  45. println "and process your request.  This is usually done within a few hours."
  46. println
  47. println "@X0FYou will now be placed into the message editor where you may provide any"
  48. println "other comments and/or edit the answers you have given."
  49. println
  50. more
  51.  
  52. kbdstuff "Y"+chr(13)
  53. if ((U_FSEP = 1) & (U_FSE = 0)) kbdstuff "N"+chr(13)
  54. kbdstuff "Voice Number : "+Phone+chr(13)
  55. kbdstuff "New Password : "+Password+chr(13)
  56. kbdstuff "I forgot my password! Could you verify me and change it?"+chr(13)
  57. end
  58.  
  59. :notyou
  60. println
  61. println "@CLS@@X0FSince that user information did NOT belong to you@X0F, please call back using a"
  62. println "different user-id, perhaps adding a middle initial to make your logon-id unique"
  63. println "for this system."
  64. :explain
  65. println "@X0A"
  66. println "Here's an example of how to log on with a middle initial:"
  67. println
  68. println "    @X0EEnter your first name?  @X07JOHN Q. PUBLIC"
  69. println
  70. println "@X0AOr any other variation on your user-id may work."
  71. println
  72.  
  73. wait
  74. println
  75. println "Please hang up now and try logging in again."
  76. println
  77. kbdstuff "N"+chr(13)
  78. goodbye
  79.